home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / SoundApps / aa_m68k_Intel_Only / InstrumentBuilder.99 / Examples / voice.sc < prev   
Encoding:
Text File  |  1995-06-12  |  675 b   |  23 lines
  1. #include <carl/cmusic.h>
  2.  
  3. ins 0 sing  ;
  4.     mult    b10 p8 .015 ;                    {Vibrato: 1.5% Depth}
  5.     trans    b8 d d d 0 p7 p8 p9 p10 p11 p12 p13 p14 1 p15 ;    {Pitch: Inflection}
  6.     osc    b9 b10 5Hz f1 d ;                {Vibrato: 5Hz Rate}
  7.     seg    b6 p5 f2 d .1sec 0 .1sec ;    {Amplitude: Main Envelope}
  8.     adn    b7 b8 b9 ;            {Pitch: Adding Vibrato}
  9.     blp    b5 b6 b7 p6 d d d ;        {Source Excitation}
  10.     NRES(b2,b5,1,730Hz,.05*730Hz) ;        {Formant: #1}
  11.     NRES(b3,b5,1/2,1090Hz,.04*1090Hz) ;    {Formant: #2}
  12.     NRES(b4,b5,1/3,2440Hz,.03*2440Hz) ;    {Formant: #3}
  13.     adn    b1 b2 b3 b4 ;            {Sum}
  14.     out    b1 ;                {Output}
  15.  
  16. end ;
  17.  
  18. SINE(f1);
  19. GEN4(f2) 0,0 -1 1/3,1 0 2/3,1 -1 1,0 ;
  20.  
  21. note 0 sing 8 1 40 C(-2) -2 .1,F(-2) 0 .9,F(-2) -1 D(-2) ;
  22.  
  23. ter;